home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / READDISP.PAS < prev    next >
Pascal/Delphi Source File  |  1989-06-30  |  724b  |  29 lines
  1. PROGRAM read_and_display;
  2.  
  3. VAR chicken    : TEXT;
  4.     name_of_file_to_input : STRING[12];
  5.     line_count : INTEGER;
  6.     big_string : STRING[80];
  7.  
  8. BEGIN  (* main program *)
  9.   WRITE('Enter input file name ');
  10.   READLN(name_of_file_to_input);
  11.   ASSIGN(chicken,name_of_file_to_input);
  12.   RESET(chicken);
  13.  
  14.   WRITELN;
  15.   WRITELN('Program listing with character count per');
  16.   WRITELN('line and total line count');
  17.   WRITELN;
  18.  
  19.   line_count := 0;
  20.   WHILE NOT eof(chicken) DO
  21.   BEGIN;
  22.     READLN(chicken,big_string);
  23.     WRITELN(length(big_string):5,'  ',big_string);
  24.     line_count := line_count + 1;
  25.   END;
  26.   CLOSE(chicken);
  27.   WRITELN;
  28.   WRITELN('The line count is ',line_count:3);
  29. END.  (* of program *)